home *** CD-ROM | disk | FTP | other *** search
Text File | 2005-11-17 | 28.2 KB | 1,073 lines |
- object fMetadata: TfMetadata
- Left = 234
- Top = 143
- AutoScroll = False
- BorderIcons = []
- Caption = 'Metadata'
- ClientHeight = 502
- ClientWidth = 402
- Color = clBtnFace
- Constraints.MinHeight = 200
- Constraints.MinWidth = 260
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- FormStyle = fsStayOnTop
- KeyPreview = True
- OldCreateOrder = True
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object cntMain: TAMContainer
- Left = 0
- Top = 105
- Width = 402
- Height = 332
- Align = alClient
- BorderWidth = 5
- DoubleBuffered = False
- object cntEXIF: TbsSkinPanel
- Left = 0
- Top = 0
- Width = 392
- Height = 322
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'panel'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Arial'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AutoEnabledControls = True
- CheckedMode = False
- Checked = False
- DefaultAlignment = taLeftJustify
- DefaultCaptionHeight = 22
- BorderStyle = bvRaised
- CaptionMode = False
- RollUpMode = False
- RollUpState = False
- NumGlyphs = 1
- Spacing = 2
- Align = alClient
- object sgEXIF: TbsSkinStringGrid
- Left = 1
- Top = 1
- Width = 365
- Height = 320
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'grid'
- OnDrawSkinCell = sgEXIFDrawSkinCell
- VScrollBar = sbEXIF
- GridLineColor = clSilver
- DefaultCellHeight = 20
- Align = alClient
- Color = 16316664
- ColCount = 2
- DefaultRowHeight = 19
- FixedCols = 0
- RowCount = 41
- FixedRows = 0
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect]
- ParentFont = False
- OnMouseDown = sgEXIFMouseDown
- OnSelectCell = sgEXIFSelectCell
- OnTopLeftChanged = sgEXIFTopLeftChanged
- OnResize = sgEXIFResize
- end
- object sbEXIF: TbsSkinScrollBar
- Left = 366
- Top = 1
- Width = 25
- Height = 320
- TabOrder = 1
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'vscrollbar'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Arial'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- Both = False
- BothMarkerWidth = 0
- BothSkinDataName = 'bothhscrollbar'
- CanFocused = False
- Align = alRight
- Kind = sbVertical
- PageSize = 0
- Min = 0
- Max = 127
- Position = 0
- SmallChange = 5
- LargeChange = 5
- AutoLargeChange = False
- end
- object eEXIFEdit: TbsSkinEdit
- Left = 71
- Top = 80
- Width = 161
- Height = 20
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = False
- DefaultWidth = 0
- DefaultHeight = 20
- ButtonMode = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'optionsedit'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- Visible = False
- OnChange = eEXIFEditChange
- OnKeyDown = eEXIFEditKeyDown
- OnKeyPress = eEXIFEditKeyPress
- end
- object cbEXIFOrientation: TbsSkinComboBox
- Left = 71
- Top = 48
- Width = 161
- Height = 20
- TabOrder = 3
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'comboboxlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Arial'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AlphaBlend = False
- AlphaBlendValue = 0
- AlphaBlendAnimation = False
- ListBoxUseSkinFont = True
- ImageIndex = -1
- ListBoxCaptionMode = False
- ListBoxDefaultFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultFont.Color = clWindowText
- ListBoxDefaultFont.Height = 14
- ListBoxDefaultFont.Name = 'Arial'
- ListBoxDefaultFont.Style = []
- ListBoxDefaultCaptionFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultCaptionFont.Color = clWindowText
- ListBoxDefaultCaptionFont.Height = 14
- ListBoxDefaultCaptionFont.Name = 'Arial'
- ListBoxDefaultCaptionFont.Style = []
- ListBoxDefaultItemHeight = 20
- ListBoxCaptionAlignment = taLeftJustify
- TabStop = True
- Text = 'Normal'
- Items.Strings = (
- ''
- 'Normal'
- 'Rotated 180'#176
- 'CounterClockwise 90'#176
- 'Clockwise 90'#176)
- ItemIndex = -1
- DropDownCount = 8
- HorizontalExtent = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 14
- Font.Name = 'Tahoma'
- Font.Style = []
- Sorted = False
- Style = bscbFixedStyle
- OnCloseUp = cbEXIFOrientationCloseUp
- end
- object eEXIFInteger: TbsSkinSpinEdit
- Left = 71
- Top = 109
- Width = 164
- Height = 20
- TabOrder = 4
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'spinedit'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = False
- ValueType = vtInteger
- MaxValue = 50000
- Value = 300
- Increment = 10
- EditorEnabled = True
- MaxLength = 0
- end
- object eEXIFDatetime: TbsSkinEdit
- Left = 71
- Top = 16
- Width = 161
- Height = 20
- Text = '2005:20:12'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = False
- DefaultWidth = 0
- DefaultHeight = 20
- ButtonMode = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'edit'
- ReadOnly = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- Visible = False
- OnKeyPress = eEXIFDatetimeKeyPress
- OnMouseDown = eEXIFDatetimeMouseDown
- end
- end
- object cntXMP: TbsSkinPanel
- Left = 0
- Top = 0
- Width = 392
- Height = 322
- TabOrder = 2
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'panel'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AutoEnabledControls = True
- CheckedMode = False
- Checked = False
- DefaultAlignment = taLeftJustify
- DefaultCaptionHeight = 22
- BorderStyle = bvLowered
- CaptionMode = False
- RollUpMode = False
- RollUpState = False
- NumGlyphs = 1
- Spacing = 2
- Align = alClient
- object sbVXMP: TbsSkinScrollBar
- Left = 366
- Top = 1
- Width = 25
- Height = 300
- TabOrder = 0
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'vscrollbar'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Arial'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- Both = False
- BothMarkerWidth = 0
- BothSkinDataName = 'bothhscrollbar'
- CanFocused = False
- Align = alRight
- Kind = sbVertical
- PageSize = 0
- Min = 0
- Max = 127
- Position = 0
- SmallChange = 7
- LargeChange = 7
- AutoLargeChange = False
- end
- object tvXMP: TbsSkinTreeView
- Left = 1
- Top = 1
- Width = 365
- Height = 300
- HScrollBar = ssbHXMP
- VScrollBar = sbVXMP
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Arial'
- DefaultFont.Style = []
- UseSkinFont = True
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'treeview'
- DefaultColor = clWindow
- Align = alClient
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 14
- Font.Name = 'Arial'
- Font.Style = []
- Indent = 19
- ParentFont = False
- TabOrder = 1
- end
- object ssbHXMP: TbsSkinScrollBar
- Left = 1
- Top = 301
- Width = 390
- Height = 20
- TabOrder = 2
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'hscrollbar'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Arial'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- Both = False
- BothMarkerWidth = 0
- BothSkinDataName = 'bothhscrollbar'
- CanFocused = False
- Align = alBottom
- Kind = sbHorizontal
- PageSize = 0
- Min = 0
- Max = 100
- Position = 0
- SmallChange = 1
- LargeChange = 1
- AutoLargeChange = False
- end
- end
- object cntIPTC: TbsSkinPanel
- Left = 0
- Top = 0
- Width = 392
- Height = 322
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'panel'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AutoEnabledControls = True
- CheckedMode = False
- Checked = False
- DefaultAlignment = taLeftJustify
- DefaultCaptionHeight = 22
- BorderStyle = bvLowered
- CaptionMode = False
- RollUpMode = False
- RollUpState = False
- NumGlyphs = 1
- Spacing = 2
- Align = alClient
- object sbIPTC: TbsSkinScrollBar
- Left = 366
- Top = 1
- Width = 25
- Height = 320
- TabOrder = 0
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'vscrollbar'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Arial'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- Both = False
- BothMarkerWidth = 0
- BothSkinDataName = 'bothhscrollbar'
- CanFocused = False
- Align = alRight
- Kind = sbVertical
- PageSize = 0
- Min = 0
- Max = 127
- Position = 0
- SmallChange = 7
- LargeChange = 7
- AutoLargeChange = False
- end
- object sgIPTC: TbsSkinStringGrid
- Left = 1
- Top = 1
- Width = 365
- Height = 320
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'grid'
- OnColSizing = sgIPTCColSizing
- OnDrawSkinCell = sgIPTCDrawSkinCell
- VScrollBar = sbIPTC
- GridLineColor = clSilver
- DefaultCellHeight = 20
- Align = alClient
- Color = 16316664
- ColCount = 2
- DefaultRowHeight = 19
- FixedCols = 0
- RowCount = 32
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- Options = [goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
- ParentFont = False
- OnMouseDown = sgIPTCMouseDown
- OnSelectCell = sgIPTCSelectCell
- OnTopLeftChanged = sgIPTCTopLeftChanged
- OnResize = sgIPTCResize
- end
- object eIPTCEdit: TbsSkinEdit
- Left = 70
- Top = 80
- Width = 161
- Height = 20
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = False
- DefaultWidth = 0
- DefaultHeight = 20
- ButtonMode = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'optionsedit'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- Visible = False
- OnKeyDown = eIPTCEditKeyDown
- OnKeyPress = eIPTCEditKeyPress
- end
- object cbIPTCUrgency: TbsSkinComboBox
- Left = 70
- Top = 56
- Width = 161
- Height = 20
- TabOrder = 3
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'comboboxlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AlphaBlend = False
- AlphaBlendValue = 0
- AlphaBlendAnimation = False
- ListBoxUseSkinFont = True
- ImageIndex = -1
- ListBoxCaptionMode = False
- ListBoxDefaultFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultFont.Color = clWindowText
- ListBoxDefaultFont.Height = 13
- ListBoxDefaultFont.Name = 'Tahoma'
- ListBoxDefaultFont.Style = []
- ListBoxDefaultCaptionFont.Charset = DEFAULT_CHARSET
- ListBoxDefaultCaptionFont.Color = clWindowText
- ListBoxDefaultCaptionFont.Height = 14
- ListBoxDefaultCaptionFont.Name = 'Arial'
- ListBoxDefaultCaptionFont.Style = []
- ListBoxDefaultItemHeight = 20
- ListBoxCaptionAlignment = taLeftJustify
- TabStop = True
- Text = 'Normal'
- Items.Strings = (
- ''
- '1'
- '2'
- '3'
- '4'
- '5'
- '6'
- '7'
- '8')
- ItemIndex = -1
- DropDownCount = 9
- HorizontalExtent = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- Sorted = False
- Style = bscbFixedStyle
- end
- object eIPTCDate: TbsSkinEdit
- Left = 70
- Top = 1
- Width = 161
- Height = 20
- Text = '2005:20:12'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = False
- DefaultWidth = 0
- DefaultHeight = 20
- ButtonMode = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'edit'
- ReadOnly = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- Visible = False
- OnKeyPress = eIPTCDateKeyPress
- OnMouseDown = eIPTCDateMouseDown
- end
- object eIPTCTime: TAMTimeProEdit
- Left = 71
- Top = 25
- Width = 81
- Height = 20
- TabOrder = 5
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'editlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AutoEnabledControls = True
- CheckedMode = False
- Checked = False
- DefaultAlignment = taLeftJustify
- DefaultCaptionHeight = 22
- BorderStyle = bvFrame
- CaptionMode = False
- RollUpMode = False
- RollUpState = False
- NumGlyphs = 1
- Spacing = 2
- SkinDataNameEdit = 'edithourmin'
- end
- end
- end
- object cntCaption: TAMContainer
- Left = 0
- Top = 0
- Width = 402
- Height = 76
- Align = alTop
- Color = clSilver
- Visible = False
- OnResize = cntCaptionResize
- DoubleBuffered = True
- object labelBold: TLabel
- Left = 17
- Top = 12
- Width = 79
- Height = 13
- Caption = 'Edit Metadata'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object labelInfo: TLabel
- Left = 24
- Top = 28
- Width = 369
- Height = 52
- AutoSize = False
- Caption =
- 'Metadatas (EXIF or IPTC) allow you to save image descriptions di' +
- 'rectly into the files without their recompression. Only JPG and ' +
- 'TIFF supported.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object BevelB: TbsSkinBevel
- Left = 0
- Top = 74
- Width = 402
- Height = 2
- Align = alBottom
- Shape = bsBottomLine
- SkinDataName = 'bevel'
- DividerMode = False
- end
- end
- object cntMenu: TAMContainer
- Left = 0
- Top = 76
- Width = 402
- Height = 29
- Align = alTop
- OnResize = cntMenuResize
- DoubleBuffered = False
- object imgReadWrite: TImage
- Left = 376
- Top = 0
- Width = 18
- Height = 15
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- end
- object ImgRead: TImage
- Left = 376
- Top = 16
- Width = 13
- Height = 15
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- end
- object bAction: TbsSkinMenuSpeedButton
- Left = 272
- Top = 4
- Width = 83
- Height = 25
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'toolbutton'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = [fsBold]
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = False
- RepeatMode = False
- RepeatInterval = 100
- Transparent = False
- Flat = True
- AllowAllUp = False
- Down = False
- GroupIndex = 0
- Caption = 'Action'
- Glyph.Data = {
- 5A000000424D5A00000000000000420000002800000007000000060000000100
- 040000000000180000007026000070260000030000000300000000000000FFFF
- FF00FFFFFF00111011101100011010000010000000001111111011111110}
- NumGlyphs = 1
- Spacing = 7
- Layout = blGlyphRight
- SkinPopupMenu = pmAction
- TrackButtonMode = False
- end
- object rbEXIF: TAMCheckRadioBox
- Left = 10
- Top = 4
- Width = 36
- Height = 25
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = [fsBold]
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = False
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- CanFocused = False
- Radio = True
- Checked = True
- GroupIndex = 1
- Caption = 'EXIF'
- OnClick = rbEXIFClick
- AutoSize = True
- end
- object rbIPTC: TAMCheckRadioBox
- Left = 66
- Top = 4
- Width = 37
- Height = 25
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = [fsBold]
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = False
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'IPTC'
- OnClick = rbIPTCClick
- AutoSize = True
- end
- object rbXMP: TAMCheckRadioBox
- Left = 186
- Top = 4
- Width = 36
- Height = 25
- TabOrder = 2
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = [fsBold]
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = False
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'XMP'
- OnClick = rbXMPClick
- AutoSize = True
- end
- end
- object cntBottom: TAMContainer
- Left = 0
- Top = 437
- Width = 402
- Height = 45
- Align = alBottom
- Color = clSilver
- OnResize = cntBottomResize
- DoubleBuffered = False
- object AdvICO: TImage
- Left = 192
- Top = 13
- Width = 17
- Height = 16
- Transparent = True
- OnClick = AdvICOClick
- end
- object bSave: TbsSkinButton
- Left = 212
- Top = 9
- Width = 75
- Height = 24
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = True
- Down = False
- GroupIndex = 0
- Caption = 'Save'
- NumGlyphs = 2
- Spacing = 1
- Enabled = False
- Default = True
- ModalResult = 1
- OnClick = bSaveClick
- end
- object bClose: TbsSkinButton
- Left = 300
- Top = 9
- Width = 75
- Height = 24
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = True
- Down = False
- GroupIndex = 0
- Caption = 'Close'
- NumGlyphs = 2
- Spacing = 1
- Cancel = True
- ModalResult = 2
- OnClick = bCloseClick
- end
- end
- object AMStatusContainer: TAMStatusContainer
- Left = 0
- Top = 482
- Width = 402
- Height = 20
- Align = alBottom
- DoubleBuffered = False
- TopLineColor = clBlack
- object ProgressBar: TbsSkinGauge
- Left = 58
- Top = 0
- Width = 344
- Height = 20
- HelpContext = 272
- TabOrder = 0
- Visible = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'gaugestatus'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- VisibleOnlyIfWork = False
- ShowProgressText = True
- ShowPercent = True
- MinValue = 0
- MaxValue = 10
- Value = 0
- Vertical = False
- Align = alClient
- end
- object ssCount: TAMStatusSection
- Left = 0
- Top = 0
- Width = 50
- Height = 20
- Align = alLeft
- Color = 14604480
- DoubleBuffered = False
- ItemInfo = iiNone
- AMStatusContainer = AMStatusContainer
- ShowPropertyName = False
- CanActive = False
- SpaceHorz = 7
- FocusColor = clBlack
- ImageIndex = 0
- PropertyType = ptVariant
- Text = '222323'
- end
- object ssExifThumbSize: TAMStatusSection
- Left = 54
- Top = 0
- Width = 4
- Height = 20
- Align = alLeft
- Color = 14604480
- DoubleBuffered = False
- ItemInfo = iiNone
- AMStatusContainer = AMStatusContainer
- ShowPropertyName = False
- CanActive = False
- SpaceHorz = 7
- FocusColor = clBlack
- ImageIndex = 0
- PropertyType = ptVariant
- end
- object ssMaxSymbols: TAMStatusSection
- Left = 50
- Top = 0
- Width = 4
- Height = 20
- Align = alLeft
- Color = 14604480
- DoubleBuffered = False
- ItemInfo = iiNone
- AMStatusContainer = AMStatusContainer
- ShowPropertyName = False
- CanActive = False
- SpaceHorz = 7
- FocusColor = clBlack
- ImageIndex = 0
- PropertyType = ptVariant
- end
- end
- object SkinForm: TbsBusinessSkinForm
- GradientStartColor = clBlack
- GradientEndColor = clBlack
- DrawBackground = True
- ShowIcon = False
- MaximizeOnFullScreen = False
- AlphaBlend = False
- AlphaBlendAnimation = False
- AlphaBlendValue = 200
- ShowObjectHint = False
- MenusAlphaBlend = False
- MenusAlphaBlendAnimation = False
- MenusAlphaBlendValue = 200
- DefCaptionFont.Charset = DEFAULT_CHARSET
- DefCaptionFont.Color = clBtnText
- DefCaptionFont.Height = 13
- DefCaptionFont.Name = 'Tahoma'
- DefCaptionFont.Style = [fsBold]
- DefInActiveCaptionFont.Charset = DEFAULT_CHARSET
- DefInActiveCaptionFont.Color = clBtnShadow
- DefInActiveCaptionFont.Height = 13
- DefInActiveCaptionFont.Name = 'Tahoma'
- DefInActiveCaptionFont.Style = [fsBold]
- DefMenuItemHeight = 20
- DefMenuItemFont.Charset = DEFAULT_CHARSET
- DefMenuItemFont.Color = clWindowText
- DefMenuItemFont.Height = 13
- DefMenuItemFont.Name = 'Tahoma'
- DefMenuItemFont.Style = []
- UseDefaultSysMenu = True
- SkinData = SkinDataModule.SkinDataDlg
- MinHeight = 200
- MinWidth = 260
- Magnetic = False
- MagneticSize = 5
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biRollUp]
- Left = 196
- Top = 16
- end
- object IO: TImageEnIO
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'MS Sans Serif'
- PreviewFont.Style = []
- Left = 168
- Top = 16
- end
- object IO_TIFF: TImageEnIO
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'MS Sans Serif'
- PreviewFont.Style = []
- Left = 144
- Top = 16
- end
- object pmAction: TbsSkinPopupMenu
- Left = 280
- Top = 120
- object DeleteEXIF1: TMenuItem
- Caption = 'Remove All Metadata'
- Visible = False
- end
- object N1: TMenuItem
- Caption = '-'
- Visible = False
- end
- object DeleteEXIFThumbnail1: TMenuItem
- Caption = 'Remove Thumbnail'
- Visible = False
- end
- object DeleteEXIF2: TMenuItem
- Caption = 'Remove EXIF'
- Visible = False
- end
- object DeleteIPTC1: TMenuItem
- Caption = 'Remove IPTC'
- Visible = False
- end
- object N2: TMenuItem
- Caption = '-'
- Visible = False
- end
- object mAutoFillEXIF: TMenuItem
- Caption = 'Autofill EXIF fields'
- OnClick = mAutoFillEXIFClick
- end
- object mAutoFillIPTC: TMenuItem
- Caption = 'Autofill IPTC fields'
- OnClick = mAutoFilIIPTCClick
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object mShowCaption: TMenuItem
- Caption = 'Show Caption'
- Checked = True
- OnClick = mShowCaptionClick
- end
- end
- end
-